`prev` <-
function(x)c(NA,x[-length(x)])#last observation

